Filename | (eval 1111)[/usr/share/perl5/Sub/Quote.pm:5] |
Statements | Executed 29 statements in 231µs |
Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
7 | 2 | 2 | 89µs | 8.62ms | sql_maker | DBIx::Class::Storage::DBI::
1 | 1 | 1 | 14µs | 25µs | BEGIN@5.2976 | Sub::Quote::
1 | 1 | 1 | 7µs | 7µs | BEGIN@11.2977 | DBIx::Class::Storage::DBI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | { | ||||
2 | 2 | 1µs | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
3 | 1 | 200ns | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
4 | 1 | 200ns | my $orig = ${$_[1]->{"\$orig"}}; | ||
5 | 2 | 90µs | 2 | 36µs | # spent 25µs (14+11) within Sub::Quote::BEGIN@5.2976 which was called:
# once (14µs+11µs) by Sub::Quote::_clean_eval at line 5 # spent 25µs making 1 call to Sub::Quote::BEGIN@5.2976
# spent 11µs making 1 call to warnings::unimport |
6 | # spent 8.62ms (89µs+8.54) within DBIx::Class::Storage::DBI::sql_maker which was called 7 times, avg 1.23ms/call:
# 6 times (87µs+8.54ms) by DBIx::Class::Storage::DBI::_gen_sql_bind or DBIx::Class::Storage::DBI::_select_args at line 46, avg 1.44ms/call
# once (2µs+0s) by DBIx::Class::Storage::DBI::_select_args at line 56 of Sub/Defer.pm | ||||
7 | $_QUOTED if 0; | ||||
8 | 6 | 700ns | $_UNQUOTED if 0; | ||
9 | # BEGIN quote_sub PRELUDE | ||||
10 | package DBIx::Class::Storage::DBI; | ||||
11 | # spent 7µs within DBIx::Class::Storage::DBI::BEGIN@11.2977 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 16 | ||||
12 | 1 | 1µs | $^H = "133090"; | ||
13 | 1 | 300ns | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU"; | ||
14 | 1 | 6µs | %^H = ( | ||
15 | ); | ||||
16 | 1 | 108µs | 1 | 7µs | } # spent 7µs making 1 call to DBIx::Class::Storage::DBI::BEGIN@11.2977 |
17 | # END quote_sub PRELUDE | ||||
18 | |||||
19 | 6 | 6µs | if ( | ||
20 | # only fire when invoked on an instance, a valid class-based invocation | ||||
21 | # would e.g. be setting a default for an inherited accessor | ||||
22 | ref $_[0] | ||||
23 | and | ||||
24 | ! $_[0]->{_driver_determined} | ||||
25 | and | ||||
26 | ! $_[0]->{_in_determine_driver} | ||||
27 | and | ||||
28 | # if this is a known *setter* - just set it, no need to connect | ||||
29 | # and determine the driver | ||||
30 | ( 0 or @_ <= 1 ) | ||||
31 | and | ||||
32 | # Only try to determine stuff if we have *something* that either is or can | ||||
33 | # provide a DSN. Allows for bare $schema's generated with a plain ->connect() | ||||
34 | # to still be marginally useful | ||||
35 | $_[0]->_dbi_connect_info->[0] | ||||
36 | ) { | ||||
37 | $_[0]->_determine_driver; | ||||
38 | |||||
39 | # work around http://rt.perl.org/rt3/Public/Bug/Display.html?id=35878 | ||||
40 | goto $_[0]->can("sql_maker") unless DBIx::Class::_ENV_::BROKEN_GOTO; | ||||
41 | |||||
42 | my $cref = $_[0]->can("sql_maker"); | ||||
43 | goto $cref; | ||||
44 | } | ||||
45 | |||||
46 | 6 | 12µs | 6 | 8.62ms | goto $orig; # spent 8.62ms making 6 calls to DBIx::Class::Storage::DBI::sql_maker, avg 1.44ms/call |
47 | } | ||||
48 | 1 | 1µs | $$_UNQUOTED = \&DBIx::Class::Storage::DBI::sql_maker | ||
49 | } | ||||
50 | 1 | 4µs | 1; | ||
51 | |||||
52 | ; |